home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / rchat401.zip / R-PCANCH.MRG < prev    next >
Text File  |  1992-09-14  |  10KB  |  275 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBS-PC.BAS to produce RBBS-PC.BAS
  3. * OLD\RBBS-PC.BAS:  Date 8-26-1990  Size 165474 bytes
  4. * ------------[ Created 08-28-1990 14:07:47 ]------------
  5. * REPLACING old line(s) by new
  6. 760 GOSUB 755
  7.     CALL AllCaps (ZWasZ$)
  8.     LSET ZPswd$ = ZWasZ$
  9.     CALL QuickTPut1 ("Please REMEMBER your password")
  10.     ZUserTextColor = 37
  11.     ZTempSecLevel = ZUserSecLevel
  12.     CALL Protocol
  13.     ZUserXferDefault$ = "N"
  14.     ZProtoPrompt$ = "None"
  15.     IF ZNewUserSetsDefaults THEN _
  16.        ZBypassTimeCheck = ZTrue : _
  17.        GOSUB 43000 : _
  18.        ZBypassTimeCheck = ZFalse : _
  19.        CALL Graphic (ZFileName$) : _                                 ' KG022003
  20.        GOSUB 42805 : _
  21.        GOSUB 42700 : _
  22.        GOSUB 42750 _                                                 ' RCHAT
  23.     ELSE ZUpperCase = ZFalse : _                                     ' DA030101
  24.          ZNulls = ZFalse
  25.     ZPageLength = ZPageLengthDef
  26.     CALL SetNewUserDef                                               ' KG022601
  27.     GOSUB 5135
  28.     CALL DefaultU
  29. * REPLACING old line(s) by new
  30. 800 IF ZAdjustedSecurity THEN _                                      ' KG032501
  31.        GOSUB 5135
  32.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  33.        ZMainUserFileIndex = ZUserFileIndex : _
  34.        ZOrigSec = ZUserSecLevel : _
  35.        ZUserSecSave = ZUserSecLevel : _
  36.        ZOrigUserName$ = ZActiveUserName$
  37.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  38.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _              ' KG022601
  39.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  40.     GOSUB 9500
  41.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _                 ' KG022601
  42.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  43.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  44.     PrevLastOn$ = ZLastDateTimeOn$
  45.     IF ZLocalUser THEN _
  46.        ZTalkToModemAt$ = "9600" : _
  47.        ZBaudParity$ = "9600 BPS,N,8,1" : _                           ' DA062001
  48.        ZModemInitBaud$ = "9600" : _
  49.        ZSnoop = ZTrue : _
  50.        ZLineFeeds = ZTrue
  51.     CALL SetCrLf
  52.     CALL SetPrompt
  53.     CALL XferType (2,ZTrue)
  54.     IF NOT ZSubBoard THEN _                                          ' KG022601
  55.        BoardCheckDate$ = PrevLastOn$
  56.     CALL SetSysOp                                                    ' KG022601
  57.     IF ZWasA THEN _
  58.        ZActiveUserName$ = "SYSOP" : _
  59.        ZFirstName$ = "SysOp"                                         ' KG011401
  60.     IF ZExitToDoors OR ZSubBoard THEN _                              ' KG022601
  61.        GOTO 815
  62.     GOSUB 465
  63.     IF (ZEightBit AND _
  64.        ZAutoDownDesired) OR _
  65.        ZAskID THEN _
  66.        CALL TestUser
  67.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  68.     CALL Talk (1,ZOutTxt$)
  69.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B")) ' KG081902
  70.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  71.                 ", operating at" + Temp$)                            ' KG081902
  72.     CALL SkipLine (1)
  73. * ------[ first line different ]------
  74.     IF ZMaxNodes > 1 THEN                                            ' RCHAT
  75.        CALL LogNewForChat (ZMaxNodes)                                ' RCHAT
  76.     END IF                                                           ' RCHAT
  77.     Attempts = 0
  78.     ZWasZ$ = ZActiveUserName$ + _
  79.             " on at " + _
  80.             ZCurDate$ + _
  81.             ", " + _
  82.             ZTime$ + _
  83.             " from " + _
  84.             ZWasCI$ + _
  85.             "," + Temp$                                              ' KG081902
  86.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  87. '
  88. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  89. '
  90.      WasX$ = "{" + _
  91.           HashValue$ + _
  92.           "/" + _
  93.           ZIndivValue$ + _
  94.           "}"
  95.      IF LEN(ZWasZ$) < 65 THEN _
  96.         WasX = 65 _
  97.      ELSE WasX = LEN(ZWasZ$) + 2
  98.      MID$(ZWasNG$,WasX) = WasX$
  99.      CALL Printit ("  " + ZWasZ$)
  100.      IF ZNewUser THEN _
  101.         CALL UpdtCalr ("NEWUSER",1) : _
  102.         CALL Muzak (2)
  103. '
  104. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  105. '
  106.     IF ZEightBit AND ZAutoDownYes THEN _
  107.        ZOutTxt$ = CHR$(9) + _
  108.             ZReturnLineFeed$ + _
  109.             "You may use AUTODOWNLOADing!" : _
  110.        CALL RingCaller : _
  111.        CALL DelayTime(4)
  112. * REPLACING old line(s) by new
  113. 1230 CALL Line25
  114.      ZOutTxt$ = ZConfName$ + ":"                                     ' TC070708
  115.      GOSUB 12978                                                     ' TC070708
  116.      CALL Talk (65,ZConfName$)                                       ' TC070708
  117.      CALL DispTimeRemain (MinsRemaining)
  118.      IF ZMenuIndex = 6 THEN _
  119.         ZSubParm = 1 : _
  120.         CALL Library
  121. * ------[ first line different ]------
  122.      CALL CBCheck(WillChat)                                          ' RCHAT
  123.      IF WillChat THEN GOTO 1600
  124.      CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse)               ' RCHAT
  125.      CALL Talk (ZMenuIndex, ZOutTxt$)
  126. * REPLACING old line(s) by new
  127. * ------[ first line different ]------
  128. * INSERTING new line(s)
  129. 1600 CALL CBTrueChat (ZMaxNodes)                                     ' RCHAT
  130.      GOSUB 5344                                                      ' RCHAT
  131.      GOTO 1205                                                       ' RCHAT
  132. '
  133. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  134. '
  135. * REPLACING old line(s) by new
  136. * ------[ first line different ]------
  137. 2100 CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' RCHAT
  138.      IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _
  139.         GOTO 2120
  140. * INSERTING new line(s)
  141. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  142.      I = ZSubParm
  143.      CALL SkipLine (1)
  144.      IF I = -2 THEN      ' Sleep Disconnect
  145.         GOTO 10590
  146.      ELSEIF I = -1 THEN  ' Lost Carrier
  147.         GOTO 10595
  148.      ELSEIF I = 1 THEN   ' Save Message
  149.         GOTO 3400
  150.      ELSEIF I = 2 THEN   ' Abort Message
  151.         GOTO 2430
  152.      END IF
  153. 2120 ZOutTxt$ = "Enter Your " + _
  154.           ZMsgHeader$ + _
  155.           STR$(ZMaxMsgLines) + _
  156.           " Lines Max" + _
  157.           ZPressEnterExpert$
  158.      GOSUB 12975
  159.      GOSUB 3200
  160. * REPLACING old line(s) by new
  161. 3405 IF ZSysopMsg THEN _
  162.         MsgPswd$ = "^READ^" _
  163.       ELSE _
  164.         Temp$ = MsgPswd$ :  _
  165.         CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
  166.         IF MsgPswd$ = "" THEN _
  167.            MsgPswd$ = Temp$ : _
  168. * ------[ first line different ]------
  169.            IF ZFullScreenEditor THEN _                               ' RCHAT
  170.               GOTO 2110 _                                            ' RCHAT
  171.             ELSE _                                                   ' RCHAT
  172.               GOTO 2300                                              ' RCHAT
  173.      SaveReplyStatus = ZReply
  174.      ZReply = ZTrue
  175.      ZSysopMsg = ZFalse
  176.      ZReply = SaveReplyStatus
  177.      GOSUB 4910
  178.      MsgRecSave$ = ZMsgRec$
  179.      MsgCorrected = ZFalse
  180.      GOSUB 23100
  181.      ZWasSL = 0
  182.      ZWasN$ = ""
  183.      ZLastIndex = 0
  184.      HighMsgNumber = HighMsgNumber + 1
  185. * REPLACING old line(s) by new
  186. 4360 ZWasLG$(11) = ZWasZ$
  187.      NumMsgsSelected = ZLastIndex
  188.      MsgIndex = ZAnsIndex
  189.      ZLastIndex = 0
  190.      AddressedToUser = ZFalse                                        ' KG020801
  191.      ToRequested = ZFalse                                            ' KG020801
  192.      FromRequested = ZFalse                                          ' KG010102
  193.      LinkNext = ZFalse                                               ' KG020801
  194. * ------[ first line different ]------
  195.      CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' RCHAT
  196. * REPLACING old line(s) by new
  197. 4626   ZWasZ$ = "L"
  198.        WasL = 1
  199. * ------[ first line different ]------
  200.        IF ZFullScreenEditor THEN
  201.           GOSUB 2110
  202.        ELSE
  203.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  204.              CALL QuickTPut ("Message cannot exceed" + _
  205.                          STR$(ZMaxMsgLines) + " lines...",1)
  206.           IF NOT MsgFwd THEN _
  207.              ZOutTxt$ = "Use C to Continue Reply.  Please Delete Unneeded Lines." : _
  208.              GOSUB 12975
  209.           GOSUB 3200
  210.           GOSUB 3020
  211.           GOSUB 2300
  212.        END IF
  213.        GOTO 4628
  214. * REPLACING old line(s) by new
  215. 5410 CALL Toggle(-9)
  216.      GOSUB 43020
  217.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  218.      CALL Toggle(-5)
  219.      GOSUB 42810
  220.      CALL Toggle(-3)
  221.      CALL Toggle(-6)
  222.      CALL Toggle(-7)
  223.      CALL Toggle(-10)
  224.      CALL Toggle(-2)
  225.      CALL Toggle(-4)
  226.      CALL Toggle(-8)
  227.      CALL Toggle(-1)
  228. * ------[ first line different ]------
  229.      CALL Toggle(-11)                                                ' RCHAT
  230.      CALL Toggle(-12)
  231.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  232.         IF ZUserSecLevel > ZTempExpiredSec THEN _                    ' DA021501
  233.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  234.      RETURN
  235. '
  236. ' *****  B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE)  ****
  237. '
  238. * REPLACING old line(s) by new
  239. * ------[ first line different ]------
  240. 9800 CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes)
  241.      REM ** 'ZNodeRecIndex - 1' is the users actual node number.. is there
  242.      REM ** already a variable for this?? I dunno..
  243.      REM **
  244.      REM ** PageEm will call WhosOn, then ask if they want to page someone
  245.      REM ** if so, it'll call CBTrueChat
  246.      REM ** etc..
  247.      CLOSE 10                                                        ' RCHAT
  248.      GOSUB 5344
  249.      RETURN
  250. '
  251. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
  252. '
  253. * REPLACING old line(s) by new
  254. * ------[ first line different ]------
  255. 42700 CALL SkipLine (1)
  256.       CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
  257.       ZOutTxt$ = "Use TurboKey (Y,[N])"                              ' DA062001
  258.       GOSUB 12999
  259.       ZTurboKeyUser = NOT ZYes
  260.       CALL Toggle (8)
  261.       RETURN
  262. '
  263. ' * EDITOR SET FOR NEW USERS
  264. '
  265. * INSERTING new line(s)
  266. 42750 ZOutTxt$ = "Use the Full Screen Editor for Messages (Y/[N])"
  267.       GOSUB 12999
  268.       ZFullScreenEditor = NOT ZYes
  269.       CALL Toggle (12)
  270.       RETURN
  271. '
  272. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  273. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  274. '
  275.